100 Plus Great Games 2

home *** CD-ROM | disk | FTP | other *** search

/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / 3BillyGoats.dxr / 00020_retreat button.ls < prev next >

Wrap

Text File | 2002-01-25 | 8.3 KB | 258 lines

property pMoveSelected, spriteNum global gCardsSelected, gPlayerHand, gDistance, gLooper, gSingleCardSelected1, gSingleCardSelected2, gSingleCardSelected3, gSingleCardSelected4, gSingleCardSelected5, gCardsRemaining, gDeck, gCardsUsed, gBridge, gGoatPos, gOgrePos, gPaused, gGoatScore, gOgreScore, gRestart on mouseDown me if gPaused = 0 then if gCardsSelected = 1 then sprite(spriteNum).member = "retreat1_invert" if gSingleCardSelected5 = 1 then if gPlayerHand[5] = 0 then gDistance = 0 else if gPlayerHand[5] = 1 then gDistance = 1 else if gPlayerHand[5] = 2 then gDistance = 2 else if gPlayerHand[5] = 3 then gDistance = 3 else if gPlayerHand[5] = 4 then gDistance = 4 else if gPlayerHand[5] = 5 then gDistance = 5 end if end if end if end if end if end if else if gSingleCardSelected4 = 1 then if gPlayerHand[4] = 0 then gDistance = 0 else if gPlayerHand[4] = 1 then gDistance = 1 else if gPlayerHand[4] = 2 then gDistance = 2 else if gPlayerHand[4] = 3 then gDistance = 3 else if gPlayerHand[4] = 4 then gDistance = 4 else if gPlayerHand[4] = 5 then gDistance = 5 end if end if end if end if end if end if else if gSingleCardSelected3 = 1 then if gPlayerHand[3] = 0 then gDistance = 0 else if gPlayerHand[3] = 1 then gDistance = 1 else if gPlayerHand[3] = 2 then gDistance = 2 else if gPlayerHand[3] = 3 then gDistance = 3 else if gPlayerHand[3] = 4 then gDistance = 4 else if gPlayerHand[3] = 5 then gDistance = 5 end if end if end if end if end if end if else if gSingleCardSelected2 = 1 then if gPlayerHand[2] = 0 then gDistance = 0 else if gPlayerHand[2] = 1 then gDistance = 1 else if gPlayerHand[2] = 2 then gDistance = 2 else if gPlayerHand[2] = 3 then gDistance = 3 else if gPlayerHand[2] = 4 then gDistance = 4 else if gPlayerHand[2] = 5 then gDistance = 5 end if end if end if end if end if end if else if gSingleCardSelected1 = 1 then if gPlayerHand[1] = 0 then gDistance = 0 else if gPlayerHand[1] = 1 then gDistance = 1 else if gPlayerHand[1] = 2 then gDistance = 2 else if gPlayerHand[1] = 3 then gDistance = 3 else if gPlayerHand[1] = 4 then gDistance = 4 else if gPlayerHand[1] = 5 then gDistance = 5 end if end if end if end if end if end if end if end if end if end if end if pMoveSelected = 1 else if gCardsSelected >= 2 then sprite(120).member = "sign_only1card" sprite(120).visible = 1 puppetSound(3, "sheepbaa") gRestart = 1 end if if gCardsSelected = 0 then sprite(120).member = "sign_selectaCard" sprite(120).visible = 1 puppetSound(3, "sheepbaa") gRestart = 1 end if gPaused = 1 end if end if end on mouseLeave sprite(spriteNum).member = "retreat1" pMoveSelected = 0 end on mouseUp if gPaused = 0 then if gCardsSelected = 1 then if gBridge[gGoatPos - gDistance] <= 1 then sprite(spriteNum).member = "retreat1" pMoveSelected = 0 gBridge[gGoatPos] = 0 repeat while gLooper < gDistance puppetSound(1, "WormWalk1") sprite(35).member = "goaty1" sprite(35).locH = sprite(35).locH - 12 sprite(35).locV = sprite(35).locV - 4 repeat with pCount = 50 to 70 sprite(pCount).locH = sprite(pCount).locH - 12 sprite(pCount).locV = sprite(pCount).locV - 4 end repeat startTimer() repeat while the timer < 8 updateStage() end repeat puppetSound(1, "WormWalk2") sprite(35).member = "goaty2" sprite(35).locH = sprite(35).locH - 12 sprite(35).locV = sprite(35).locV - 4 repeat with pCount = 50 to 70 sprite(pCount).locH = sprite(pCount).locH - 12 sprite(pCount).locV = sprite(pCount).locV - 4 end repeat startTimer() repeat while the timer < 8 updateStage() end repeat updateStage() gGoatPos = gGoatPos - 1 gLooper = gLooper + 1 end repeat gCardsUsed = gCardsUsed + 1 sprite(124 + gCardsUsed).visible = 0 if gSingleCardSelected1 = 1 then gPlayerHand[1] = gDeck[gCardsUsed] sprite(10).member = "card_" & gDeck[gCardsUsed] sprite(45).visible = 1 sprite(45).member = "card_" & gDeck[gCardsUsed + 1] else if gSingleCardSelected2 = 1 then gPlayerHand[2] = gDeck[gCardsUsed] sprite(11).member = "card_" & gDeck[gCardsUsed] sprite(45).visible = 1 sprite(45).member = "card_" & gDeck[gCardsUsed + 1] else if gSingleCardSelected3 = 1 then gPlayerHand[3] = gDeck[gCardsUsed] sprite(12).member = "card_" & gDeck[gCardsUsed] sprite(45).visible = 1 sprite(45).member = "card_" & gDeck[gCardsUsed + 1] else if gSingleCardSelected4 = 1 then gPlayerHand[4] = gDeck[gCardsUsed] sprite(13).member = "card_" & gDeck[gCardsUsed] sprite(45).visible = 1 sprite(45).member = "card_" & gDeck[gCardsUsed + 1] else if gSingleCardSelected5 = 1 then gPlayerHand[5] = gDeck[gCardsUsed] sprite(14).member = "card_" & gDeck[gCardsUsed] sprite(45).visible = 1 sprite(45).member = "card_" & gDeck[gCardsUsed + 1] end if end if end if end if end if gBridge[gGoatPos] = 1 gCardsRemaining = gCardsRemaining - 1 member("CardsRemaingText").text = string(gCardsRemaining) gSingleCardSelected1 = 0 gSingleCardSelected2 = 0 gSingleCardSelected3 = 0 gSingleCardSelected4 = 0 gSingleCardSelected5 = 0 gDistance = 0 gCardsSelected = 0 gLooper = 0 if (gCardsUsed < 21) and (gCardsRemaining > 0) and (gGoatScore < 100) and (gOgreScore < 100) and (gGoatPos >= 6) and (gOgrePos <= 28) then EnemyAI() end if else sprite(120).member = "sign_stayInside" sprite(120).visible = 1 puppetSound(3, "sheepbaa") gRestart = 1 end if end if end if AnyPossibleGoatMoves() scoreTally() end